home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / biz / demo / Famos.lha / FAMOSInstall < prev    next >
Text File  |  1996-03-11  |  6KB  |  182 lines
  1. ; Dieses Script unterliegt dem Urheberrechtsschutz von AH-Soft
  2. ; und darf nicht verändert werden!
  3. ; Feuchtwangen den 10.09.95
  4.  
  5. (complete 0)
  6.  
  7. ;=============================================================================
  8. ; Deutsche Texte
  9.  
  10. (if (= @language "deutsch")
  11. (
  12.  
  13. (set #einleitung1
  14.  (cat "Sie können jetzt FAMOS auf einer Festplatte installieren.\n\n"
  15.       "FAMOS ist urheberrechtlich geschützt.\n"
  16.       "Diese Demoversion darf weitergegeben werden.\n"
  17.       "Die Rechte bleiben auschließlich bei AH-Soft.\n\n"
  18.       "AH-Soft\n"
  19.       "Horst Abendschein       Tel. 09852-62853\n"
  20.       "Weikersdorfer Weg 10    Box. 09852-62854\n"
  21.       "91555 Feuchtwangen                      \n\n"
  22.       "Die Vollversion kann über\n"
  23.       "ein Keyfile lizensiert werden."
  24. ))
  25.  
  26. (set #einleitung2
  27.  (cat "Support und Fragen:\n\n"
  28.       "M.O.M. Computersysteme\n"
  29.       "Paweletz & Sellner GbR\n"
  30.       "Kölner Str. 149/151\n\n"
  31.       "40227 Düsseldorf\n\n"
  32.       "Tel: 0211 / 9 77 88 99\n"
  33.       "Fax: 0211 / 780 22 27 \n"
  34.       "Box: 0211 / 9 77 88 88"
  35. ))
  36.  
  37. (set #pfad_info
  38.  (cat "\n"
  39.       "Bitte wählen Sie jetzt das Zielverzeichnis aus.\n"
  40.       "Es wird dort ein neues Verzeichnis mit dem\n"
  41.       "Namen 'FAMOS' angelegt!\n\n"
  42.       "WICHTIG\n\n"
  43.       "Das Zielverzeichnis darf keine Leerstellen\n"
  44.       "in Namen enthalten!!\n\n"
  45.       "Falsch:  Ram Disk:\n"
  46.       "Richtig: Ram:     \n"
  47. ))
  48.  
  49. (set #entpack_info
  50.  (cat "\n\n\n\n"
  51.       "Daten werden entpackt.\n\n"
  52.       "Bitte warten..."
  53. ))
  54.  
  55. (set #ende-install
  56.  (cat "\nDie Installation von FAMOS ist nun abgeschlossen.\n\n"
  57. ))
  58.  
  59. (set #famosende
  60. (cat "Die Installation wurde abgebrochen"
  61. ))
  62.  
  63. (set #wohin-install
  64. (cat "Auf welche Partition soll FAMOS installiert werden?"
  65. ))
  66.  
  67. (set #wohin-install-help
  68. (cat "Wählen Sie bitte jetzt eine Festplatte und/oder einen "
  69.      "bestimmten Pfad aus. "
  70.      "Sie bestimmen damit, wohin FAMOS installiert werden soll. "
  71.      "Mit \"Proceed\" wird dann die Installation fortgesetzt. "
  72.      "Mit \"Parent Drawer\" können Sie im aktuellen Verzeichnis "
  73.      "eine Stufe rückwärts gehen. "
  74.      "Mit \"Show Drives\" können Sie sich alle verfügbaren "
  75.      "Speichermedien zeigen lassen. Im Zielpfad wird automatisch "
  76.      "vom Install-Programm eine Verzeichnis mit dem Namen FAMOS "
  77.      "angelegt."
  78. ))
  79.  
  80. ))
  81.  
  82.  
  83. ;=============================================================================
  84. ; »»»»»»»»»»»» Ende der Texte »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
  85. ;=============================================================================
  86.  
  87. ;=============================================================================
  88. ; Procedure beim Exit
  89.  
  90. (procedure FAMOSENDE (message #famosabbruch)
  91. )
  92.  
  93. ;=============================================================================
  94. ; Abbruch Installtion
  95.  
  96. ;(onerror (FAMOSENDE))
  97.  
  98.  
  99. ;=============================================================================
  100. ; Font installieren
  101. ;=============================================================================
  102.  
  103. (procedure INSTALLFONT
  104.  
  105.  (if (exists "FONTS:FAMOS/8")
  106.   (set famosfont TRUE)        ;Font ist schon vorhanden
  107.   (        ;Font muß noch installiert werden
  108.    (askdisk     (prompt #disk-famos-1)    ;Warte auf Disk FAMOS_1
  109.                 (help @askdisk-help)
  110.                 (dest "FAMOS_1")
  111.                )
  112.    (copyfiles   (source "FAMOS_1:fonts")    ;Font anlegen und kopieren
  113.                 (dest "fonts:")
  114.                 (all)
  115.                )
  116.   )
  117.   (complete 5)
  118.  )    ;end if exists
  119. )    ;end procedure
  120.  
  121.  
  122. ;=============================================================================
  123. ;»»»» HIER GEHTS LOS   INSTALL FAMOS    AH-Soft 1996 «««««««««««««««««««««««««
  124. ;=============================================================================
  125.  
  126. ;=============================================================================
  127. ; Gesamtprogramm oder nur Font installieren ?
  128. ;=============================================================================
  129.  
  130. (message #einleitung1)
  131. (message #einleitung2)
  132. (message #pfad_info)
  133.  
  134. ;Zuerst den möglichen Default-Zielpfad definieren
  135. (set defaultpath "sys:")    ;Notfalls nach sys
  136. (if (exists "ram:" (noreq)) (set defaultpath "ram:"))
  137. (if (exists "hd0:" (noreq)) (set defaultpath "hd0:"))
  138. (if (exists "hd1:" (noreq)) (set defaultpath "hd1:"))
  139. (set defaultpath (expandpath defaultpath))    ;Vollen Pfadnamen vorgeben
  140.  
  141.  
  142. ;=============================================================================
  143. ; Font installieren
  144. ;=============================================================================
  145. (if (exists "FONTS:FAMOS/8")
  146.  (complete 5)                    ;Verlegenheits Befehl wegen if...
  147.  (                            ;Font muß noch installiert werden
  148.   (copyfiles   (source "fonts")    ;Font anlegen und kopieren
  149.                (dest "fonts:")
  150.                (all)
  151.   )
  152.  )
  153. )
  154.  
  155. ;=============================================================================
  156. ; FAMOS installieren
  157. ;=============================================================================
  158. (
  159.  (set target (askdir (prompt #wohin-install)    ;Wohin installieren
  160.              (help #wohin-install-help)
  161.              (default defaultpath)
  162.              (disk)
  163.  ))
  164.  (complete 10)
  165.  (textfile
  166.     (prompt "Erzeuge Install-Script...")
  167.     (dest "delme")
  168.     (append "lha x famos.lha ")
  169.     (append  target)
  170.  )
  171.  (complete 20)
  172.  (working #entpack_info)
  173.  (run "execute delme")
  174.  (set @default-dest (tackon target "FAMOS"))    ;Merke wohin installieren
  175. )
  176.  
  177. ;=============================================================================
  178. ; Fertig !
  179. ;=============================================================================
  180. (complete 100)
  181. (exit #ende-install)
  182.